home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
tsca
/
tsca1.bas
< prev
next >
Wrap
BASIC Source File
|
1995-05-09
|
2KB
|
72 lines
Global Const NPARTS = 50
Global BasinLvl(2) As Integer
Global caller As Integer
Global centst As Integer
Global dbstatus As Integer
Global equipment(20) As String
Global fault(20) As String
Global jp As Integer
Global jr As Integer
Global part(NPARTS) As String
Global partowner(NPARTS) As Integer
Global pumpst(10) As Integer
Global rakest As Integer
Global valvest(2) As Integer
Global whoa As Integer
Sub statusmanager (devicestat As Integer)
DBStat.Show
DBStat.Text1.Text = equipment(caller)
If devicestat = 0 Then
DBStat.Text2.Text = "on"
DBStat.List1.Visible = 0
If fault(caller) <> "" Then
DBStat.Label1.Visible = -1
DBStat.Label1.Caption = fault(caller) + " repaired."
fault(caller) = ""
Else
DBStat.Label1.Visible = 0
End If
Else
DBStat.Text2.Text = "off"
partowner(caller) = 3
DBStat.Label1.Visible = -1
DBStat.Label1.Caption = "Select defective part."
End If
End Sub
Sub stcentrifuge ()
Dim i As Integer, j As Integer, k As Integer
Dim ii As Integer
j = 0
k = 0
centst = 0
For i = 1200 To 0 Step -1
ii = i Mod 256
If i < 256 Then j = ii
If i <= 512 Then k = ii
tscamain.centrifuge.Line (i, 0)-(i, 840), RGB(j, k, ii)
Next i
End Sub
Sub stopcentrifuge ()
Dim i As Integer, j As Integer, k As Integer, ii As Integer
ii = 255
j = 255
k = 255
For i = 0 To 720
If i > 125 Then
j = 380 - i
If j < 0 Then j = 0
End If
If i > 400 Then
ii = 655 - i
If ii < 0 Then ii = 0
End If
tscamain.centrifuge.Line (0, i)-(1200, i), RGB(j, j, ii)
Next i
End Sub